
(defun getList (directory-as-string) "extracts a text file with each word as an object in a list named wordlist"
  (setq myfile (open directory-as-string))
  (setq temp t)
  (setq wordlist ())

  ;;build list
  (while (!= temp nil) do
    (setq temp (read myfile nil nil))
    (setq wordlist (append wordlist temp))
  )
  wordlist
)

